home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / tex / tpp410n.lha / TPPGlobal.lha / rexx / tpl / ShowLogfile.tpl < prev    next >
Text File  |  1993-01-17  |  2KB  |  66 lines
  1. /* Show Logfile - Macro */
  2. /* Kick 2.0 only */
  3.  
  4. options results
  5.  
  6. binary='C:Type'
  7. output='>"CON:0/16/700/440/Show Logfile/AUTO/WAIT/ALT/INACTIVE/SCREENTextPlus"'
  8. hailstring='Show Logfile'
  9.  
  10. address 'TextPlus'
  11.  
  12. /* get name of current file */
  13.  
  14. 'GetName'
  15.  
  16. filename = result
  17.  
  18. /* strip off extension */
  19. if RIGHT(filename, 4) == '.tex' | RIGHT(filename, 4) == '.tpp' then do
  20.    len = LENGTH(filename) - 4
  21.    filename = LEFT(filename, len)
  22.    end
  23.  
  24. 'RequestString' hailstring'\\'filename
  25. showopts = result
  26.  
  27. n = WORDS(showopts)
  28. fullname = WORD(showopts, n)
  29. n = LENGTH(showopts) - LENGTH(fullname)
  30. printopts = LEFT(showopts, n)
  31.  
  32. PARSE VALUE namestruc(fullname) WITH ivol idirs ibase .
  33.  
  34. IF fullname == "" then empty = 'true'
  35.                   else empty = 'false'
  36.  
  37. IF "" == SUBSTR(fullname, 1+ivol+idirs+ibase) THEN DO
  38.         fullname = fullname||".log"     /* supply a default extension   */
  39.         ibase = ibase + 4
  40.         END
  41.  
  42. IF 0 = ivol THEN DO
  43.         direc = PRAGMA('d')
  44.         IF RIGHT(direc,1)~='/' & RIGHT(direc,1)~=':' THEN direc=direc||'/'
  45.         fullname = direc||fullname
  46.         DROP direc
  47.         END
  48. ELSE DO
  49.         direc = SUBSTR(fullname, 1, ivol+idirs)
  50.         IF RIGHT(direc,1) = '/' THEN DO
  51.             n = LENGTH(direc)
  52.             direc = LEFT(direc, n-1)
  53.             END
  54.         call pragma 'Directory', direc
  55.      END
  56. DROP ivol idirs ibase
  57.  
  58. /* valid filename ? */
  59. if empty = 'false' then do
  60. /*   address command wbtofront 'Workbench'*/
  61.    address command binary output fullname
  62.    end
  63. else
  64.    'Display' 'Show Logfile --- Abbruch'
  65.  
  66.